Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/shared.dxr/04469_STARTMOVIE.ls

Text File | 1996-02-21 | 2.9 KB | 96 lines

global gObjectsA, gObjectsB, gObjectsC, gObjectsD, gObjectsE, gObjectsF, gObjectsG, gObjectsH, gWorld, gStates, gOBJECTS, gHotRects, gScreenState, gCursorList, gTimerList, gHitMaps, gPuppetlines, gKeyRef, cNullCast, cNullQTmovie, NULLRECT, gSpritePropTypes, gQTproplist, cNUllCharmovie, sPICTSPRITE, sQTSPRITE, sCURSORSPRITE, sCPSprite, sQTCharSprite, gUnvObjects, void, gAngles, gLastCursor, gPlayingQT, gCursorPresent, gScreenWidth, gScreenHeight, gCurKeyList, gTransMovieName, gAnimationObjects, gDeathRow, gLastKeyList, gKeyFrameSound, gEnvironmentSound, gKeyFrameSoundMode, gKeyExitSound, gHaveNavs, gNextEnvLetter, gNextDIRFile, gMIDIPlayTRUE, gInitalized, noteObjs, windowsMIDIXObj, xNAVXOBJ, xCURXOBJ, gCPU, gfileSep, gRootPath, gHDpath, gXobjs, gXOBJPath, gCDpath, gCDName, gQTmovPath, gSoundPath, gdirtyGame

on InitUnCompiledOBJs
  initEnvironment()
  InitUnvObjs()
  InitEnviromentObjects()
end

on startMovie
  global noav
  cursor([the number of cast "NullCursor", the number of cast "NullCursor.mask"])
  updateStage()
  if the movieName starts "intro" then
    if gInitalized <> #true then
      StartUpInitalizations()
    end if
    if gCPU = #MAC then
      go("loadgameNow")
    end if
  else
    if gInitalized <> #true then
      StartUpInitalizations()
      OneTimeInitalizations()
    end if
    set gPlayingQT to 0
    set gNextDIRFile to #empty
    setaProp(gStates, #EnviroLetter, char 1 of the movieName)
    puppetScore()
    set the cpuHogTicks to 60 * 60 * 1
    SetPathsforEnviro(getaProp(gStates, #EnviroLetter))
  end if
end

on puppetScore
  repeat with sNum = 1 to 48
    puppetSprite(sNum, 1)
  end repeat
end

on DoQuit
  if objectp(xNAVXOBJ) then
    xNAVXOBJ(mdispose)
  end if
  CLOSEMIDIXOBJ()
end

on TicksDelay nticks
  set Start to the ticks
  repeat while the ticks < (Start + nticks)
  end repeat
end

on onOffScreenCursor onscreen
  if onscreen then
    SetCursor(the mouseH, the mouseV)
  else
    set gLastCursor to 200
    cursor(200)
  end if
end

on makeDynamic ObjRef, thisProp, thisValue
  setaProp(getaProp(gOBJECTS, ObjRef), thisProp, thisValue)
  if voidp(getaProp(getaProp(gOBJECTS, ObjRef), #Dynamic)) then
    setaProp(getaProp(gOBJECTS, ObjRef), #Dynamic, [])
  end if
  if getOne(getaProp(gStates, #Dynamic), ObjRef) = 0 then
    add(getaProp(gStates, #Dynamic), ObjRef)
  end if
  if getOne(getaProp(getaProp(gOBJECTS, ObjRef), #Dynamic), thisProp) = 0 then
    add(getaProp(getaProp(gOBJECTS, ObjRef), #Dynamic), thisProp)
  end if
  set gdirtyGame to 1
end

on object refnum
  return getaProp(gOBJECTS, refnum)
end

on GameOverEnter
  set Deletelist to []
  repeat with ObjRef in gUnvObjects
    set obj to getaProp(gOBJECTS, ObjRef)
    if (getaProp(obj, #Aquired) = #true) and (ObjRef <> #SaveOBj) then
      setaProp(obj, #Aquired, #false)
      add(Deletelist, ObjRef)
    end if
  end repeat
  Delobjects(Deletelist)
end

on patchPalette
  global gFixPalette
  gFixPalette(mPatchIt)
end